# konrad.smolinski@gmail.com
# date: 		01/12/2010
# last update: 	12/05/2011
#
# info:
#
# 	Parameters for rcDgp()
#
# ------------------------------------------------------------------
rcPrm <- function(
			a=c(0,1)
			,b=c(0,1)
			,d=c(2,3^(-1/2),3^(-1/2),3^(-1/2))
			,zval=c(-0.5,0.5)
			,xval=c(0,1)
			,xthres=c(0,1)
			){
				
				
res <- list(a=a,b=b,d=d,zval=zval,xval=xval,xthres=xthres)		
class(res) <- 'rcPrm'		
return(res)				
}

print.rcPrm <- function(x){
	cat("DGP Parameters: \n\n")
	cat("a1=",x$a[1],", a2=",x$a[2],sep="")
	cat('\n')
	cat("b1=",x$b[1],", b2=",x$b[2],sep="")
	cat('\n')
	cat("d1=",x$d[1],", d2=",round(x$d[2],3),", d3=",round(x$d[3],3),sep="")
	cat('\n')
	cat("xval=",x$xval,sep="  ")
	cat('\n')
	cat("xThres=",x$xthres,sep=" ")
	cat('\n')
	cat("zval=",x$zval,sep="  ")

	
}


# --- Validate
codeVal <- FALSE
if(codeVal){
	print(rcPrm())
}
# --- EOF ----------------------------------------------------------